home *** CD-ROM | disk | FTP | other *** search
/ Amoszine 4 / Amoszine 4 (Disk 1 of 3).adf / READERS_SOURCE.LHA / READERS_SOURCE / Paul_Overy's_code / Add_Spaces.AMOS / Add_Spaces.amosSourceCode
Encoding:
AMOS Source Code  |  1992-02-26  |  407 b   |  15 lines
  1. ' Program: Adds 6 spaces to text files (Amoszine likes to have it this way)  
  2. '          This has been a 30 second job.
  3. 'Carbon14: Paul Overy. 
  4. '
  5. Screen Open 0,640,256,2,Hires
  6. Set Input 10,-1
  7. F$=Fsel$("","","Select Ascii text file","6 Spaces will be added")
  8. Open In 1,F$
  9. Open Out 2,F$+".6"
  10. While Not Eof(1)
  11.    Line Input #1,A$
  12.    Print Space$(6)+A$
  13.    Print #2,Space$(6)+A$+Chr$(10);
  14. Wend 
  15. Close 1 : Close 2